Private Casting/Casting One.bin/Docs/Interview.dir/Internal_55.ls

Text File | 1997-01-22 | 489 b | 24 lines

on mouseEnter
  cursor([cast "curs", cast "mask"])
  puppetSprite(the currentSpriteNum, 1)
  set the blend of sprite the currentSpriteNum to 50
end

on mouseLeave
  cursor(-1)
  set the blend of sprite the currentSpriteNum to 100
end

on mouseUp
  cursor(-1)
  set the movieRate of sprite 18 to 0
  set the visible of sprite 18 to 0
  puppetSprite(18, 0)
  repeat with x = 12 to 16
    puppetSprite(x, 0)
    set the visible of sprite x to 0
  end repeat
  updateStage()
  go("pregs")
end